Pascal Super Library/Pascal Super Library (CW International)(1997).bin/SWAG/SWAGA_C/CURSOR.SWG/0022_cursor hiding.pas

Pascal/Delphi Source File | 1994-05-25 | 450b | 32 lines

var crstyp: word;

procedure cursoff;

{ Turns the cursor off.  Stores its format for later redisplaying. }

begin
  asm
    mov ah, 03h
    mov bh, 00h
    int 10h
    mov crstyp, cx
    mov ah, 01h
    mov cx, 65535
    int 10h
    end;
  end;

procedure curson;

{ Turns the cursor back on, using the cursor display previously stored. }

begin
  asm
    mov ah, 01h
    mov cx, crstyp
    int 10h
    end;
  end;